home *** CD-ROM | disk | FTP | other *** search
/ SVM Mac CD-ROM 59 / SVM Mac CD-ROM - No 59.iso / demo camisole / Quai.Dxr / 00623_jeu de l'intrus - sélection.ls < prev    next >
Encoding:
Text File  |  1999-04-06  |  534 b   |  17 lines
  1. on exitFrame
  2.   global gNiveauDuJeu, gDecalageSprite, gNumDechet, gNumIntrus, gListeDechets
  3.   if gNiveauDuJeu = "A" then
  4.     set vNbreElements to 6
  5.   else
  6.     set vNbreElements to 12
  7.   end if
  8.   set gDecalageSprite to 19
  9.   set gNumDechet to the number of member "dechet 1" - 1
  10.   set gNumIntrus to the number of member "intrus 1" - 1
  11.   set vIntrus to random(14)
  12.   set gNumIntrus to gNumIntrus + vIntrus
  13.   set gListeDechets to Tirage(vNbreElements, 22)
  14.   setAt(gListeDechets, random(vNbreElements), 30)
  15.   go("intrus" && gNiveauDuJeu)
  16. end
  17.